home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 31
/
64er_Magazin_Sonderheft_31_19xx_Markt__Technik_de.d64
/
test stereo-sid
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
485b
|
23 lines
10 s1=54272:rem $d400=startadresse sid1
20 s2=s1+32:rem $d420=startadresse sid2
30 pokes1+24,15:pokes2+24,15
40 forj=0to2
50 read fl,fh,el,eh
60 pokes1+(j*7),fl:pokes1+1+(j*7),fh
70 pokes2+(j*7),el:pokes2+1+(j*7),eh
80 nextj
90 for m=0to2
100 for j=0to1
110 pokes1+(j*32)+(m*7)+5,3*16+15
120 pokes1+(j*32)+(m*7)+6,15*16+8
130 pokes1+(j*32)+(m*7)+4,33
140 fori=1to200:next
150 nextj,m
160 geta$:ifa$<>" "then160
170 for j=1to0step-1
180 for m=2to0step-1
190 pokes1+(j*32)+(m*7)+4,32
200 fori=1to200:next
210 nextm,j
220 data 90,4,123,5,133,6,180,8,247,10,10,13